(pascal-calculate-indent): Code with an invalid

beginning could cause Emacs to hang.  Fixed.

diff --git a/lisp/progmodes/pascal.el b/lisp/progmodes/pascal.el
index f4bc8d41a844426ee78cd0ed75edc19b83609e18..3cbfc5c8fd277baa6a597ff6216ee6be7f23adb6 100644 (file)
--- a/lisp/progmodes/pascal.el
+++ b/lisp/progmodes/pascal.el
@@ -897,13 +897,13 @@ Return a list of two elements: (INDENT-TYPE INDENT-LEVEL)."
                            (and (not complete)
                                 (looking-at pascal-sub-block-re))
                            (throw 'nesting 'block))
+                          (;--No known statements
+                           (bobp)
+                           (throw 'nesting 'unknown))
                           (;--Found complete statement
                            (save-excursion (forward-sexp 1)
                                            (= (following-char) ?\;))
                            (setq complete t))
-                          (;--No known statements
-                           (bobp)
-                           (throw 'nesting 'unknown))
                           )))))
 
       ;; Return type of block and indent level.